Appendix 



Description: A Palm database application used tracking the menstrual cycle of 
female Palm User. 



// 12345678 
//345678901234567890123456789012345678901234567890123456789012345678901234567890 

#define NON_INTERNATIONAL 

#include <Pilot.h> 
#include <SysEvtMgr .h> 

#include "PPatrol.h" 
#include "Calendar. h" 
#include "MyUtilities .h" 

#include "pPatrolRsc .h" // resource definitions (created by Constructor) 



* Internal structures definitions 



typedef struct 
{ 

DateType 

int 

int 

Boolean 
Boolean 
char 
} PackedData, 

#define DataSize 



theDate; 
theFlow; 
theMood; 
theLast; 
theFirst; 
theNotes[0] ; 
*PkdDataPtr ; 

sizeof (PackedData) 



// Date data was written 



/ / Min PackedData structure size 



typedef struct 
{ 

Boolean 
Boolean 
DateType 
} AppPreferences; 



nextPeriod; 
lastMissing; 
ins tall edDate ; 



// Date application was installed 



* Global variables for this application 



AppPreferences 

DateType 
DateType 
DateFormatType 
Da t e F o rma t Type 

DateType 

DateType 

short 

short 

short 



Pref s; 

Nuday; 
Today; 

DisplayDate; 
DisplayLongDate; 

FirstDate; 
FirstDays [TWELVE] j 
MonthDays [TWELVE] ; 
GoodMonths ; 
SelectedMonths ; 



// Preferences information 

// Date when device powered on 

// Format to use displaying date 
// Format to use displaying date 



// Number of months selected by User 
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DmOpenRef pPatrolDB; // Handle for application's database 

/ / These variables contain particular transaction values after unpacking a check 



DateType 


TheDate; 


// Date data was written 


int 


TheFlow; 




int 


TheMood; 




Boolean 


TheLast; 




Boolean 


TheFirst ; 




CharPtr 


TheNotes; 




CharPtr 


TheOther ; 




Word 


DailyFlow; 


// Number indicating daily flow choice 


Word 


DailyMood; 


// Number indicating daily mood choice 


Word 


RecordNumber; 


// Record number used for whatever 


Word 


CurrentRecord ; 


// Index of the current record 


Word 


TopVi s ibleRecord ; 


// Top record in register table 


Word 


S tart ingDayOf Week; 


/ / Day of week the week starts on 


short 


AverageDays ; 




long 


NumberDays ; 




int 


DailyFlowBMP; 




int 


DailyMoodBMP; 




#pragma mar 


k Utilities 





* Function: CreateApplic at ionDat abase 
* 

* Description: This routine opens the application's database. If the database 

* does not exist, it will first create it and then open it. 
* 

* Parameters: None 



* Returns: Nothing 

* History: 09/10/00 - Initial creation of function for pPatrol project. 
* 

*********************************^ 
static void CreateApplicationDatabase (void) 
{ 

Word error; // Error code 



pPatrolDB = DmOpenDatabaseByTypeCreator (AppDbType, AppCreator, dmModeReadWrite); 

if( IpPatrolDB ) // Database doesn't exist, so create it now 

{ 

error = DmCreateDat abase ( 0 , "pPatrolDB", AppCreator, AppDbType, false); 
ErrFatalDisplaylf (error, "Can't create new database."); // Check fatal error 

// Try opening the application database again 

pPatrolDB = DmOpenDatabaseByTypeCreator (AppDbType, AppCreator, dmModeReadWrite); 
MarkDatabaseAsDirty (pPatrolDB) ; // Set dirty flag for this database 

CreateAppInfoBlock (pPatrolDB) ,- // Create and Initialize AppInfoBlock 

} 

} // end of CreateApplicationDatabase 




* Function: MakeNewRecord 
* 

* Description: Create a new first record checkbook register entry on each call. 
* 

* Parameters: None 
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* Returns: True if a record was successfully created. 
* 

* History: 09/10/00 - Initial creation of function for pPatrol project. 
* 

**************************************************** 
static void MakeNewRecord (void) 
{ 

PackedData patrol ; 

VoidHand nuData; // Handle for current record 

VoidPtr pVoid; 
UInt index ; 

Err error; 

index =0; // Add new record at beginning of database 

nuData = DmNewRecord (pPatrolDB, &index, DataSize) ; // Get handle to record 

if ( nuData ) 
{ 

patrol .theDate = Nuday; 

patrol . theFlow = NothingSelected; 

patrol . theMood = NothingSelected; 

patrol .theLast = false; 

patrol .theFirst = false; 

StrCopy (patrol . theNotes, " " + nullChr) ; 

pVoid = MemHandleLock (nuData) ; // Lock handle and get pointer to data 

error = DmWrite (pVoid, 0/ &patrol, DataSize); // Write data record 

ErrFatalDisplaylf (error, "Can't write to new record"); // Check fatal error 

MemHandleUnlock (nuData) ; // Finished, so unlock memory chunk 

CurrentRecord = index; // Remember index of current record 

} 

// Release record to database manager. The 'true 1 value indicates this record 
// contains 'dirty' data. DmReleaseRecord will set the record's dirty flag and 
// update the database modification count. 
DmReleaseRecord (pPatrolDB, index, true); 
} // end of MakeNewRecord 

/******************************************************************************* 
* 

* Function: SaveCurrentRecord 
* 

* Description: Retrieve the current record and update the record's information, 
* 

* Parameters: recordNum -> Number of the record to store. 
* 

* Returns: Nothing 
* 

* History: 09/10/00 - Initial creation of function for pPatrol project. 
* 

****************************************************************************** y 
static void SaveCurrentRecord (Word recordNum) 
{ 

VoidHand nuData; // Handle for current record 

VoidPtr pVoid; 
Ulnt attributes; 
UInt length, offset; 

// Sanity check, is passed record number within the number of database records 
if( recordNum < 0 || recordNum > DmNumRecords (pPatrolDB) ) return ; 

// Calculate actual size of updated record - the 2 is for string terminators 
length = sizeof (TheDate) + sizeof (TheFlow) + sizeof (TheMood) + 

sizeof (TheLast) + sizeof (TheFirst) + 
StrLen(TheNotes) + StrLen(TheOther) + 2; 
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nuData = DmGetRecord(pPatrolDB, recordNum); // Get handle for this record 

if( MemHandleResize(nuData, length) == 0 ) 
{ 

offset =0; // Make sure offset always begins at zero 

pVoid = MemHandleLock(nuData) ; // Lock handle and get pointer to record 

DmWrite(pVoid, offset/ &TheDate, sizeof (TheDate) ) ; 
offset += sizeof (TheDate) ; 

DmWrite(pVoid, offset, &TheFlow, sizeof (TheFlow) ) ; 
offset += sizeof (TheFlow) ; 

DmWrite(pVoid, offset, &TheMood, sizeof (TheMood) ) ,- 
offset += sizeof (TheMood) ; 

DmWrite{pVoid, offset, &TheLast, sizeof (TheLast) ) ; 
offset += sizeof (TheLast) ; 

DmWrite(pVoid, offset, &TheFirst, sizeof (TheFirst) ) ; 
offset += sizeof (TheFirst) ; 

DmStrCopy(pVoid, offset, TheNotes) ; 
offset += StrLen (TheNotes) + 1; 

DmStrCopy(pVoid, offset, TheOther) ; 

MemHandleUnlock(nuData) ; // Finished, so unlock memory chunk 

MarkDatabaseAsDirty(pPatrolDB) ; // Set dirty flag for this database 

DmRecordInfo(pPatrolDB, recordNum, &attributes, NULL, NULL); // Attributes 
attributes |= dmRecAttrDirty; // Set dirty flag for this record 

DmSetRecordlnfofpPatrolDB, recordNum, ^attributes, NULL) ; 

} 

DmReleaseRecordfpPatrolDB, recordNum, true); // See note in MakeNewRecord 

} // end of SaveCurrentRecord 

/******************************** ir***************************^*******^*^*^^**^^^. 

* 

* Function: FetchCurr en t Record 
* 

* Description: Retrieves a data record from the database, unpacks it and places 

* the data in a usable data structure. 
* 

* Parameters: recordNum -> Number of the record to retrieve. 
* 

* Returns: Nothing 
* 

* History: 09/10/00 - Initial creation of function for pPatrol project. 
**************************************************** 

static void FetchCurrentRecord(Word recordNum) 
{ 

PackedData *patrol ; 

VoidHand moniker; 

// Sanity check, is passed record number within the number of database records 
if ( recordNum < 0 | | recordNum > DmNumRecords (pPatrolDB) ) return; 

moniker = DmQueryRecordfpPatrolDB, recordNum); // Get handle for record 

if( moniker ) 
{ 
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patrol = MemHandleLock (moniker) ; 

TheDate = patrol ->theDate; 
TheFlow = patrol ->theF low; 
TheMood = patrol ->theMood; 
TheLast = patrol ->theLast; 
TheFirst = patrol->theFirst ; 



TheNotes = patrol ->theNotes; 

TheOther = TheNotes + StrLen (TheNotes) + 1; 



// Lock handle and get pointer to data 



> 



MemHandl eUnl ock ( moni ker ) ; 



/ / Finished, so unlock memory chunk 



} // end of FetchCurrentRecord 



/******************************************* 



* Function: GetNumber Of Records 



************************************ 



* Description: This routine gets the total number of records in the currently 

* active account/database. 
* 

* Parameters: None 
* 

* Returns: Nothing 
* 

* History: 09/10/00 - Initial creation of function for pPatrol project. 

***************************** ******************************************** 
static void GetNumberOf Records (void) 
{ 



CharPtr 
Word 



pText ; 
numRecords ; 



// Get number of records 



pText = MemPtrNew(50) ; 
numRecords = DmNumRecords (pPatrolDB) ; 

StrCopy (pText , "There are " ) ; 
StrIToA(pText + StrLen (pText) , numRecords); 
StrCat (pText, " records in the pPatrol DB."}; 

FrmCustomAlert (In forma tionAlert , pText, NULL, NULL) ; 
MemPtrFree (pText) ; 
} // end of GetNumberOf Records 



/**************************^ + ^ A + AAA ^^ + ^^ A ^^^^^ + ^ A ^^^ + ^^^^ + ^^^ + ^^^^^^^^^ + 
* 

* Function: CompareSavedRecords 
* 

* Description: This routine compares the current date with those already saved. 

* Parameters: None 
* 

* Returns: True if a match is found otherwise false. 
* 

* History: 09/20/00 - Added code to support database for pPatrol project. 



static Boolean CompareSavedRecords (void) 
{ 



Boolean 
Word 



matched = false; 
numRecords, recordNum; 



numRecords = DmNumRecords (pPatrolDB) ; 



/ / Get number of database records 



for( recordNum = numRecords - 1; (short) recordNum >= 0; recordNum— ) 
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FetchCurrentRecordf recordNum) ; 

iff CompareTwoDates (Nuday, TheDate) == 0 ) // Are thev the same 7 

{ 

RecordNumber = recordNum; 

matched = true; 

break; 

} 



} 



return ( matched ); 
} / / end of CompareSavedRecords 

/***********************************^ 

* Function: CalculatePeriodVitallnf o 
* 

* Description: This routine calculates statistics on the database. 
* 

* Parameters: None 
* 

* Returns : Nothing 
* 

* History: 09/20/00 - Added code to support database for pPatrol project. 

************************************************** ****************************/ 
static Boolean CalculatePeriodVitallnf o (void) 

DateType lastDate; 

DateType firstDate; 

Boolean lastPeriod; 

ULong numberDays ; 

Word numRecords ; 

Word recordNum; 

short totalDays ; 

short goodPeriods; 

int theCounter ; 

totalDays = 0; 
theCounter = 0; 
goodPeriods = 0; 
numberDays = 0L; 
lastPeriod = false; 

numRecords = DmNumRecords (pPatrolDB) ; // Get number of database records 

for( recordNum = 0; recordNum < numRecords; recordNum++ ) 

FetchCurrentRecord (recordNum) ; 

if( 'lastPeriod ) 
{ 

iff TheFirst ) 
{ 

lastPeriod = true; 
FirstDate = TheDate ; 

} 

} 

iff theCounter == 1 && TheFirst ) 
{ 

firstDate = TheDate; 
theCounter - 2; 

} 

iff TheLast ) 
{ 

lastDate = TheDate; 
theCounter = 1; 
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} 



if( theCounter == 2 ) 

{ // Get the number of days between the last date and first date 

numberDays = DateToDays (lastDate) - DateToDays (f irstDate) + 1; 

Showlnformation (" Counter = theCounter); 

MonthDays [goodPeriods] = numberDays; 
FirstDays [goodPeriods] = firstDate; 

theCounter = 0; 
goodPeriods ++ ; 

} 

} 



//If number of good months is less than what the User selected, return fals< 

iff goodPeriods < SelectedMonths ) 

{ 

FrmAlert (NotEnoughDataAlert) ; 
return ( false ) ; 

} 

totalDays = 0; 
numberDays = 0 ; 
goodPeriods -= 1; 

for( theCounter = 0; theCounter < goodPeriods; theCounter++ ) 
totalDays += MonthDays [theCounter] ; 

// Get number of days between two first days of two different periods 
firstDate = FirstDays [ theCounter] ; 
lastDate = FirstDays [theCounter + 1] 

numberDays += (DateToDays (firstDate) - DateToDays (lastDate) ) ; 



NumberDays = numberDays / goodPeriods ; 
AverageDays = totalDays / goodPeriods; 

GoodMonths = goodPeriods; // Number of months in series that have good data 

return ( true ) ; 
} // end of CalculatePeriodVitallnfo 

/**********************************^ 

* Function: CheckForLastDayOf Period 
* 

* Description: This routine checks the database to see if there has been a long 

* time between the First period day and the Last period day. 

* Parameters: None 
* 

* Returns: Nothing 
* 

* History: 09/20/00 - Added code to support database for pPatrol project. 
******* *************************************************** + + + 
tatic void CheckForLastDayOf Period (void) 

DateType lastDate; 

DateType firstDate; 

UL °ng numberDays ; 

Word numRecords ; 

Word recordNum; 

in t theCounter; 
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theCounter = 0; 

numRecords = DmNumRecords (pPatrolDB) ; // Get number of database records 

for{ recordNum - 0; recordNum < mimRecords; recordNum++ ) 
{ 

FetchCurrentRecord( recordNum) ; 

if ( theCounter == 0 && TheFirst ) 
{ 

firstDate = TheDate; 
theCounter++ ,* 

} 

if( TheLast ) 
{ 

lastDate = TheDate; 
theCounter++; 

} 

// ShowInformation( "Counter = '* , theCounter); 

if{ theCounter == 2 CompareTwoDates (lastDate, firstDate) < 0 ) 
{ 

numberDays = DateToDays (Today) - DateToDays (firstDate) ; 

if{ numberDays >= 11 && numberDays <= 15 ) FrmAlert (MoreThanlODays Alert ) ; 
if( numberDays >= 16 && numberDays <= 20 ) FrmAlert (MoreThanl5 Days Alert ) ; 
theCounter++; 

} 

} 

} // end of CheckForLastDayOf Period 
#pragma mark 



* Function: DiaryDrawCell 



* Description: Draw item in the Diary Form's table. This routine is called from 

* the table object, and must match the parameters the table object 

* passes. The DiaryFormLoadTable routine sets the table object to 

* call this routine. The table object calls it once for each table 

* cell that needs drawing. 
* 

* Parameters: table -> Table in which to draw the record. 

* row -> Row of the record to change. 

* column -> Column of the record to change. 

* bounds -> Bounds in which to draw the record. 
* 

* Returns: Nothing 
* 

* History: 09/20/00 - Added code to support database for pPatrol project. 
* 

******* ************************************************************* 
static void DiaryDrawCell (VoidPtr table, Word row, Word column, RectanglePtr ret) 



CharPtr 


pMesg; 


Boolean 


itFits; 


Boolean 


common; 


FontID 


curFont ; 


Word 


recordNum; 


short 


posX, posY; 


short 


length, width; 


char 


buffer[32] ; 


char 


noteChar; 


char 


theDate [dateStringLength] 



// It's a Pilot custom to not destroy the current font, but rather to save and 
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// restore the current font. 
curFont = FntSetFont (stdFont) ; 

// Get the record number, stored as the RowID, then retrieve the record's data 
recordNum = TblGetRowID ( table , row); 

FetchCurrentRecord(recordNum) ; // Get record data so we can process it 

common = false; 
posX = rct->topLef t .x; 
posY = rct->topLeft.y; 

switch ( column } 
{ 

case DateColumn: // column 0 shows the record date 

pMesg = MemPtrNew(15) ; 

DateToAscii(TheDate. month, TheDate.day, (TheDate .year + firstYear) % 100, 
DisplayDate, theDate) ,- 

StrCopy (pMesg, theDate); 
pMesg [StrLen (pMesg) ] = nullChr; 

// Remove year from date string 

if( (DisplayDate == dfYMDWithSlashes) || (DisplayDate == dfYMDWithDots) || 
{DisplayDate == dfYMDWithDashes) } 

{ 

pMesg += 3; 

} 

else 

pMesg[ StrLen (pMesg) - 3] = nullChr; 

common = true; 
break; 

case FlowColumn: // column 1 shows the flow text 

pMesg = MemPtrNew{20) ; 

SysStringBylndexfDailyFlowStringList, TheFlow, buffer, sizeof (buffer) ) ; 

StrCopy(pMesg, buffer); 
width - rct->extent.x; 
length = StrLen (pMesg) ; 

FntCharsInWidthfpMesg, &width, &length, &itFits) ; 

if ( litFits } //If necessary, truncate characters in this cell 

{ 

pMesg [length - 1] = 0x85; 
pMesg[ length] = chrNull; 

} 

common = true; 
break; 

case MoodColumn: // column 2 shows the mood text 

pMesg = MemPtrNew{20) ; 

if { TheMood == OTHER ) 

StrCopy {buffer, TheOther) ; 

else 

SysStringByIndex(DailyMoodStringList, TheMood, buffer, 



sizeof (buffer) ] 



StrCopy (pMesg, buffer); 
width = rct->extent.x; 
length = StrLen (pMesg) ; 

FntCharsInWidth{pMesg, &width, &length, &itFits) ; 

iff litFits ) //If necessary, truncate characters in this cell 

pMesg[ length - 1] = 0x85; 
pMesg [ length] = chrNull; 

} 
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c ommon - t rue ; 
break; 



case NotesColumn: // Column 3 shows any notes written 

if ( StrLen(TheNotes) != 0 ) // Draw note symbol if record has a note 

curFont = FntSetFont (symbolFont ) ; 
noteChar = symbolNote; 

WinDrawChars(&noteChar, 1, posX, posY) ; 
FntSetFont (curFont) ; 

> 

break ; 

} 

i f ( common ) 
{ 

WinDrawChars (pMesg, StrLen (pMesg) , posX, posY) ; 

FntSetFont (curFont); // Res tore the font 

MemPtrFree(pMesg) ; 

} 

} // end of DiaryDrawCell 

/****** *********************************************** 
* 

* Function: DiaryLoadTable 
* 

* Description: Loads database records into the DiaryForm table. 

* Description: Loads the table object with database records. But before loading 

* the table with records, do any needed positioning of the table. 

* Parameters: recordNum -> index of first record to display. 

* Returns: Nothing 
* 

* History: 09/20/00 - Added code to support database for pPatrol project. 

/ 



t *****^***************** ++ ^^^^^ ++ ^^ A ^^^ A ^^ + ^^ AA ^ +AA+ ^^^^ ++ ^^^^ + ^^^^^^ ++A ^^ A ^ +A 



static void DiaryLoadTable (void) 

FormPtr pForm; 
TablePtr pTable; 

VoidHand moniker; // Handle for current record 

Boolean enableDown, enableUp; 

Word lastRecord, recordNum; 

Word rowNumber, rowsInTable; 

Word recordNumber ,- 

int indexDown, indexUp ; 

PForm = FntiGetActiveFormf); // Get pointer to active form 

recordNum = dmMaxRecordlndex; 
pTable = GetObjectPtr (DiaryRecordsTable) ; 
rowsInTable = Tbl GetNumber Of Rows (pTable) ; 

// Try showing a full display of records. Starting at last record and working 
// backwards, find record displayed at top of table. If this record is before 
// the TopVisibleRecord then the TopVisibleRecord is set too far down the list 
// of records. Set the TopVisibleRecord to record one screen from the end 
DmSeekRecordInCategory(pPatrolDB / &recordNum, rowsInTable - 1, dmSeekBackward, 0) ; 

TopVisibleRecord = recordNumber = min (TopVisibleRecord, recordNum) ; 

for( rowNumber = rowsInTable - 1; ( short ) rowNumber 0; rowNumber—, recordNumber ++ ) 
* // Ge t each record in the current category 

moniker = DmQueryNextlnCategory (pPatrolDB, fcrecordNumber , 0) ; 

// If a record was found, set TblSetltemStyle to customTableltem, which says 
// we want to be called to draw the record. Also store the record number as 
// the RowID and then set the row usable and mark it invalid so it will draw 
// when the draw routine is called. 
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if( moniker ) 
{ 

TblSetltemStyle (pTable, rowNumber, DateColumn, customTableltem); 

TblSetltemStyle (pTable, rowNumber, FlowColumn, customTableltem); 

TblSetltemStyle (pTable, rowNumber, MoodColumn, customTableltem); 

TblSetltemStyle (pTable, rowNumber, NotesColumn, customTableltem); 

Tbl SetRowID (pTable, rowNumber, recordNumber); 

Tbl SetRowUsable (pTable, rowNumber, true); 
TblMarkRowInval id (pTable , rowNumber } ; 
lastRecord = recordNumber ,- 

} 

else //If there are more rows than records, mark unused rows as unusable 
TblSetRowUsable (pTable, rowNumber, false); 

} 

TblSetCustomDrawProcedure(pTable, DateColumn, DiaryDrawCell ) ; 
Tbl SetCustomDrawProcedure {pTable, FlowColumn, DiaryDrawCell); 
Tbl SetCustomDrawProcedure (pTable, MoodColumn, DiaryDrawCell); 
TblSetCustomDrawProcedure (pTable, NotesColumn, DiaryDrawCell}; 

Tbl Set Co lumnUsable {pTable, DateColumn, true); 
TblSetColumnUs able (pTable, FlowColumn, true); 
TblSetColumnUsable {pTable, MoodColumn, true); 
Tbl Set Co lumnUsable (pTable, NotesColumn, true); 

// If first record displayed is not last record in category, enable scroll up 
recordNum = lastRecord; 

enableUp = ! DmSeekRecordlnCategory (pPatrolDB, fcrecordNum, 1, dmSeekForward, 0); 

// If last record displayed is not first record in category enable scroll down 
recordNum = TopVisibleRecord; 

enableDown = ! DmSeekRecordlnCategory (pPatrolDB, fcrecordNum, 1, dmSeekBackward, 0); 

// Now update the on-screen scroll buttons 
indexUp = FrmGetObj ect Index {pForm, DiaryScrollUpRepeating) ; 
indexDown = FrmGe t Ob j ect Index (pForm, DiaryScrollDownRepeating) ; 
FrmUpdateScrollers(pForm, indexUp, indexDown, enableUp, enableDown); 
} / / end of DiaryLoadTable 



/************************************************** 



***************************** 



* Function: DiaryTableScrolling 
* 

* Description: Scrolls the list of database records in the direction specified. 

* Scrolling UP stops at the first record visible. This is because 

* using categories and private records the first record visible is 

* not necessarily record 0. 
* 

* Scrolling DOWN stops when less than a full table of records can 

* be displayed. To enforce this, when scrolling down, we check if 

* at the new position there are enough records visible to fill up 

* the table. If not, we find the last records visible by working 

* backwards from the end. 
* 

* Parameters: updown -> up or down. 

* oneLine -> true scrolls one line, false scrolls one page. 

* Returns: Nothing 
* 

* History: 09/20/00 - Added code to support database for pPatrol project. 
************************************************** 

static void DiaryTableScrolling {DirectionType updown, Boolean oneLine) 



TablePtr 

Word 

Word 



pTable = GetObjectPtr(DiaryRecordsTable) ; 
rowslnTable = Tbl GetNumber Of Rows (pTable) ; 
topvisibleltem; 
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CurrentRecord = NothingSelected; 
topVisibleltem = TopVisibleRecord; 

if ( updown == up ) // scroll table UP 

if ( oneLine ) // scroll up one line 

{ 

^ DmSeekRecordlnCategoryfpPatrolDB, fctopVisibleltem, 1, dmSeekForward, 0) ; 

else // Scroll up one page {less one row) 

{ / / Try going forward one page 

if( DmSeekRecordlnCategory (pPatrolDB, ^topVisibleltem, rowsInTable - 1, 

dmSeekForward, 0) ) 
{ // Try going backwards one page from the last record 

topVisibleltem = dmMaxRecordlndex; 

DmSeekRecordlnCategory {pPatrolDB, ^topVisibleltem, rowsInTable - 1, 
dmSeekBackward, 0) ; 

> 

} 

} 

® lse // Scroll table DOWN 

iff oneLine ) // scroll down one line 

DmSeekRecordInCategory{pPatrolDB, fctopVisibleltem, 1, dmSeekBackward, 
0) ; 

} 

sise // Scroll down one page (less one row) 

if( DmSeekRecordlnCategory (pPatrolDB, ^topVisibleltem, rowsInTable - 1, 

dmSeekBackward, 0)} 
{ // Not enough records to fill one page, so start with first record 

topVisibleltem = 0; 
DmSeekRecordInCategory{pPatrolDB, ^topVisibleltem, 0, 

dmSeekForward, 

0); 



} 



} 

} 



if ( TopVisibleRecord != topVisibleltem ) // Avoid redraw if no changes 

{ // Table is at different position so load it with new records and redraw it 
TopVisibleRecord = topVisibleltem; 

DiaryLoadTable ( } ; // setup and display Diary table 

TblRedrawTable (pTable) ; 

} 

} // end of DiaryTableScrolling 
#pragma mark 

/******************* ************ n ^*„ t ^^ iH , t ^^ t , H ^ nt ^ Ht ^ in ^ n ^ H 
* 

* Function: MainFormlnitialization 
* 

* Description: Initialization routine for 'Main' form. Does those things that 

* need doing whenever the app starts and the 'Main' form is shown. 

* Parameters: None 

* Returns: Nothing 
* 

* History: 07/28/98 - First attempt at a generic application framework. 
******************************* ^^^^ *********************** ************ 7 

static void MainFormlnitialization (void) 
{ 

Boolean newDate - false ; 

char buf f er [longDateStrLength] ; 
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DateToAscii (Today .month, Today. day, Today. year + firstYear, DisplayLongDate, buffer); 
WinDrawChars (buffer, StrLen (buffer) , 105, 1); // Show today's date 



DateSecondsToDate (TimGet Seconds ( ) , &Nuday) ; 

ShowMeTheDate(newDate, Nuday, MainFirstSelTrigger) ; 
ShowMeTheDate (newDate, Nuday, MainLastSelTrigger) ; 

CtlSetValue (GetObjectPtr (MainFirstCheckbox) , false) ; 
CtlSetValue {GetObjectPtr (MainLastCheckbox) , false) ; 

ClearFieldByld(MairiNotesField) ; 
ClearFieldByld(MainMoodField) ; 
ClearFieldByld(MainFlowField) ,- 

DailyFlow = NothingSelected; 
DailyMood = NothingSelected; 
} // end of MainFormlnitialization 



* Function: MainFc 
* 

* Description: This routine performs the menu command specified by the User. 

* Parameters: command -> Menu item ID tag. 
* 

* Returns: Nothing 
* 

* History: 07/28/98 - First attempt at my generic application 
* 

static void MainFormMenuHandler (Word command) 
{ 

switch ( command ) 
{ 

case OptionsCalendar: 

FrmPopupForm ( CalendarForm) ; 
break ,- 

case OptionsPreferences: 

FrmPopupForm ( Pre f erencesForm) ; 
break; 

case OptionsPeriodDiary: 

FrmPopupForm (DiaryForm) ; 
break; 

case Opt ionsVital Information : 

FrmPopupForm (VitallnfoForm) ; 
break; 

case Op tionsNumberof Records: 
GetNumberOf Records ( ) ; 
break; 

case OptionsDisclaimer: 

FrmPopupForm (DisclaimerForm) ; 
break; 

case OptionsAboutpPatrol : 

FrmPopupForm ( About AppForm) ; 
break ; 

} 

} // end of MainFormMenuHandler 



/* 
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* Function: MainFormEventHandler 
* 

* Description: Event handler for the application's 'MainForm' . Processes events 

* when the main form is active. 

* Parameters: event -> Pointer to an EventType structure. 
* 

* Returns: True if event was handled and should not be passed to a higher 

* level handler or False (0) if the event was not handled. 
* 

* History: 07/28/98 - First attempt at my generic application framework. 
* 

******************************************************** 

static Boolean MainFormEventHandler {Event Ptr event) 
{ 

Boolean handled = false; // Assume we might not succeed 

ControlPtr pCntrlO = GetObjectPtr (MainFirstCheckbox) ; 

ControlPtr pCntrll = GetObjectPtr (MainLastCheckbox) ; 

FieldPtr pField; 

ListPtr pList; 

Word selected; 



switch ( event->eType ) 
{ 

case ctlSelectEvent: // Control button was pressed and released 

if ( event->data.ctlEnter. control ID == MainFirstCheckbox ) 
{ 

iff CtlGetValue (pCntrll) ) CtlSetValue {pCntrll , false); 
handled = true; 

} 

else if ( event ->data.ctlEnter .controlID == MainFirstSelTrigger ) 
{ 

iff CtlGetValue (pCntrlO) ) 

Nuday = ShowMeTheDate { true , Nuday, MainFirstSelTrigger); 

handled = true; 

} 

else iff event->data.ctlEnter. controlID == MainLastCheckbox ) 
{ 

iff CtlGetValue (pCntrlO) ) CtlSetValue {pCntrlO , false); 
handled - true; 

} 

else iff event- >data.ctlEnter .controlID == MainLastSelTrigger ) 
{ 

iff CtlGetValue (pCntrll) ) 

Nuday = ShowMeTheDate (true, Nuday, MainLastSelTrigger) ,- 

handled = true; 

> 

else iff event ->data.ctlEnter .controlID == MainFlowPopTrigger } 

pList = GetObjectPtr (MainFlowList) ; 
pField = GetObjectPtr (MainFlowField) ; 

selected = LstPopupList fpList) ; 
iff selected != NothingSelected ) 

{ 

DailyFlow = selected; 

PutTextlnField (pField, LstGetSelectionText (pList, 

selected) ) ; 

} 

handled = true; 

} 

else if ( event ->data.ctlEnter. controlID == MainMoodPopTrigger ) 

pList = GetObjectPtr {MainMoodList ) ; 
pField = GetObjectPtr (MainMoodField) ; 

selected = LstPopupList fpList) ; 
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selected) ) ; 



ScSc 



record 



iff selected ! = NothingSelected ) 
DailyMood = selected; 

if ( selected == OTHER ) 
{ 

ClearFieldByldfMainMoodField) ; 
SetFocusOnltem(MainMoodField) ; 

} 

else 

PutTextlnField fpField, LstGetSelectionText (pList , 



handled = true; 

} 

else if { event->data.ctlEnter.controlID == MainClearButton ) 
{ // 'Clear' button pressed so clear flow field 

ClearFieldByld(MainFlowField) ; 

handled = true; 

} 

else if ( event->data.ctlEnter.controlID == MainSaveButton ) 
{ II 'Save' button pressed so save the current data 

if{ ! CtlGetValue {GetObj ectPtr (MainLastCheckbox) ) && 

! CtlGetValue (GetObj ectPtr (MainFirstCheckbox) ) && 
FldGetTextLengthfGetObjectPtr (MainFlowField) } == 0 

FldGetTextLength {GetObj ectPtr (MainMoodField) ) == 0 
FldGetTextLength (GetObj ectPtr (MainNotesField) ) == 0 

{ 

FrmAlert (MothingToSaveAlert) ; 

handled = true; 

break; 



iff CompareSavedRecords ( ) ) 

{ // Get confirmation from User before replacing the existing 

iff FrmAlert {DuplicateRecordAlert) == DuplicateRecordNo ) 



ReplaceThisRecordNo ) 



database record 



record 



} 

else 
{ 



handled = true; 
break; 



if ( FrmAlert (ReplaceThisRecordAlert) 
{ 



handled = true; 
break ; 



} 

else 
{ 

> 



CurrentRecord = RecordNumber; 



} 

else 



MakeNewRecord ( ) ; 



// Create new 



// Grab User data into a structure so we can write it as a packed 
TheDate = Nuday; 
TheFlow = DailyFlow; 
TheMood = DailyMood; 
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TheLast = CtlGetValue (pCntrll) ; 
TheFirst = CtlGetValue {pCntrlO ) ,- 

TheNotes = FldGetTextPtr {GetObjectPtr (MainNotesField) ) ,- 
if{ TheNotes == NULL ) TheNotes = " " + nullChr; 

if ( TheMood == OTHER ) TheOther = 
FldGetTextPtr (GetObjectPtr (MainMoodField) ) ,- 

if ( TheOther == NULL ) TheOther = " " + nullChr; 



date 



} 



SaveCurrentRecord(CurrentRecord) ; // Save data from this 

FrmUpdateForm(MainForm, SomethingChanged) ; 
handled = true; 

else if ( event->data.ctlEnter.controlID == MainDiaryButton ) 

FrmPopupForm(DiaryForm) ; 
handled = true; 

else if ( event->data.ctlEnter.controlID == MainVitalButton ) 

FrmPopupForm{ Vital In foForm) ; 
handled = true; 

else iff event->data.ctlEnter.controlID == MainHelpButton ) 

FrmHelp(MainFormHelpString) ; 
handled = true; 

break ; 

case menuEvent: // Menu item was se i ected 

MenuEraseStatus(O) ; // clear menu from display first 

MainFormMenuHandler (event ->dat a. menu. itemID) ; 
handled = true; 
break; 

case f rmUpdateEvent : 

MainFormlnxtialization ( ) ; 
handled = true; 
break ; 

case frmOpenSvent: // Opening the form - initialize it 

FrmDrawForm(FrinGetActiveForm() ) ; // Draw the form 

Drawlnf oButton (MainHelpButton) ; 

if( Prefs. las tMis sing ) 

CheckForLastDayOfPeriodO ; 

MainFormlnitializationO ; 
handled = true; 
break ; 



return ( handled ); 
> / / end of MainFormEventHandler 

********************************************************** 
* 

* Function: About AppEventHandler 
* 

* Description: Displays the application 'About' form. 

* Parameters: event -> Pointer to an EventType structure. 

* Returns: True if event was handled and should not be passed to a higher 
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* level handler or false (0) if the event was not handled. 

* History: 09/18/00 - Initial creation of function for pPatrol project. 

********************************************************* 
static Boolean AboutAppEventHandler (Event Ptr event) 

Boolean handled = false; // Assume we might not succeed 

CharPtr pName, pVersion; 

Handle moniker; 

FontID curFont; 

short xPos ; 



form 
font 



// It's a Pilot custom to not destroy the current font, but rather to save and 
// restore the current font. 
curFont = FntSetFont (stdFont) ; 

switch { event- >eType } 
{ 

case ctlSelectEvent: // Control button was pressed and released 

if ( event->data.ctlEnter.controlID == AboutAppOKButton ) 

i 1 1 1 OK 1 button pressed so apply changes and return 

FrmReturnToForm(MainForm); // Return to Main 

FntSetFont (curFont) ; // Restore the 

handled = true; 

} 

break; 

case frmOpenEvent: // opening the form - initialize it 

FrmDrawForm(FrmGetActiveForm() ) ; // Draw the form 

FntSetFont (largeFont) ; // Set font so that it can be seen 

moniker = DmGetResource ( * tAIN' , 1000); 



if{ moniker ) 
{ 

pName = MemHandleLock (moniker) ; 
MemHandleUnlock (moniker) ; 
DmReleaseResource (moniker) ; 

} 



xPos = (156 - FntCharsWidth(pName, StrLen (pName) ) ) / 2; 
WinDrawChars(pName, StrLen (pName) , xPos, 14); 

pVersion = MemPtrNew(15 ) ; 
StrCopy (pVersion, "Version M ) ; 



FntSetFont (boldFont); // Set font so that it can be seen 

moniker = DmGetResource (' tver 1 , 1000); 



if ( moniker ) 
{ 

pName = MemHandleLock (moniker) ; 
St rCat (pVersion, pName); 
MemHandleUnlock (moniker) ; 
DmReleaseResource (moniker) ; 

} 



xPos = (156 - FntCharsWidth (pVersion, StrLen (pVersion) ) ) / 2; 
WinDrawChars (pVersion, StrLen (pVersion) , xPos, 30); 

MemPtrFree (pVersion) ; 
handled = true; 
break; 
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return ( handled ) ; 
} // end of AboutAppEventHandler 



form 



/******************************************************************* i( **** i: + ir i ci(i(i( 

* Function: DisclaimerEventHandler 
* 

* Description: Displays the application 'Disclaimer' form. 
* 

* Parameters: event -> Pointer to an EventType structure. 

* Returns: True if event was handled and should not be passed to a higher 

level handler or false (0) if the event was not handled. 

* 

* History: 09/18/00 - Initial creation of function for pPatrol project. 
******************************************************** 

static Boolean DisclaimerEventHandler (Event Ptr event) 
{ 

Boolean handled = false; // Assume we might not succeed 

switch ( event->eType ) 

{ 

case ctlSelectEvent: // Control button was pressed and released 

if ( event->data.ctlEnter. control ID == DisclaimerOKButton ) 
{ // 'OK' button pressed so apply changes and return 

FrmReturnToForm{MainForm) ; // Return to Main 

handled ~ true; 

} 

break; 

case frmOpenEvent: // opening the form - initialize it 

FrmDrawForm(FrmGetActiveForm{) ); // Draw the form 

handled = true; 
break; 

} 

return ( handled ) ; 
} // end of DisclaimerEventHandler 

/******************************************************************** itic + i:i( ^ i;i(ic t^ 
* 

* Function: Pref erencesEventHandler 
* 

* Description: Handles processing of events for the 'Preferences' dialog form. 

* Parameters: event -> Pointer to an EventType structure 

* Returns: True if event was handled and should not be passed to a higher 

* level handler or false (0) if the event was not handled. 

* History: 09/18/00 - Initial creation of function for pPatrol project. 

********************************************************* icici( ****************** / 
static Boolean Pre f erencesEventHandler (Even tPtr event) 

ControlPtr pCntrlO = GetObjectPtr (Pref erencesNextPeriodCheckbox) ; 

ControlPtr pCntrll = GetObjectPtr (Pref erencesLastDayCheckbox) ; 

Boolean handled = false; // Assume we might not succeed 

switch ( event ->eType ) 
{ 

case ctlSelectEvent: // control button was pressed and released 
xf( event->data.ctlEnter.controlID == Pref erencesOKButton ) 
{ / / ' OK * button pressed so apply changes and return to Main form 
. Prefs.nextPeriod = CtlGetValue (pCntrlO) ; 
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Prefs.lastMissing = CtlGetValue (pCntrll) ; 

FrmRetumToForm (MainForm) ; 
handled = true; 

} 

else if{ event->data.ctlEnter. control ID == Pref erencesCancelButton ) 

{ // 'Cancel' button pressed so just return to Main form 

FrmRetumToForm (MainForm) ; 

handled = true; 

} 

break ; 

case frmOpenEvent: // Opening the form - initialize it 

FrmDrawForm{FrrnGetActiveForm(} ) ; // Draw the form 



CtlSetValue{pCntrlO, Pref s .nextPeriod) ; 

CtlSetValuefpCntrll, Prefs.lastMissing) ; 
handled = true; 
break ; 



return ( handled ) ; 
} // end of PreferencesEventHandler 



/********************* ********************************************************** 
* 

* Function: DiaryFormEventHandler 
* 

* Description: Handles User selecting options. 
* 

* Parameters: event -> Pointer to an EventType structure. 

* Returns: True if event was handled and should not be passed to a higher 

* level handler or false (0) if the event was not handled. 



* History: 09/18/00 - Initial creation of function for pPatrol project. 

*********************************************************** 
static Boolean DiaryFormEventHandler (Event Ptr event) 



Boolean handled = false; // Assume we might not succeed 

TablePtr pTable = GetObjectPtr (DiaryRecordsTable) ; 

TablePtr tableP; 

static Word row, col; 

switch{ event ->eType ) 
{ 

case ctlSelectEvent: // control button was pressed and released 

if ( event->data.ctlEnter.controlID == DiaryFinishedButton ) 
( // 'OK' button pressed so apply changes and return 

FrmRetumToForm (MainForm) ; 

FrmUpdateForm {MainForm, SomethingChanged) ; 
handled = true; 

} 

else if ( event->data.ctlEnter.controlID == DiaryEditButton ) 

iff col == 0 ) 
{ 

if ( CurrentRecord == NothingSelected ) 
FrmAlert (NoRecordSelectedAlert) ; 

else 

FrmPopupForm(EditForm) ; 



selected row 



TblUnhighlightSelection(pTable) ; // Unhighlight 

} 

handled = true; 
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selected row 



selected row 



} 

else iff event ->data.ctlEnter .controlID == DiaryHelpButton ) 

FrinHelp(DiaryFormHelpString) ; 
handled = true; 

} 

break ; 

case tblSelectEvent: 

row = event->data. tbl Select. row, - 
col = event- >da ta. tblSelect . column ; 
tableP - event->data. tbl Select. pTable; 

/ / Get record nuinber from RowID then get record so we can process the data 
CurrentRecord = TblGetRowID (tableP, row); 
FetchCurrentRecord (CurrentRecord) ; 

if ( col == 1 | | col == 2 ) 
{ 

TblUnhighlightSelection(pTable) ; // Unhighlight 

} 

else if( col == 3 ) 
{ 

if( StrLen(TheNotes) != 0 ) FrmPopupForm(NotesForm) ; 
TblUnhighlightSelection(pTable) ; // Unhighlight 



handled = true; 
break; 

case ctlRepeatEvent: // On-screen scroll button pressed so scroll one line 
if ( event->data.ctlRepeat. controlID == DiaryScrollDownRepeating ) 

DiaryTableScrollingfdown, true); 

} 

else if ( event->data.ctlRepeat. controlID DiaryScrollUpRepeating ) 
DiaryTableSc rolling (up, true) ; 

} 

break; // Repeating controls don't repeat if 'handled' set true 

case keyDownEvent : 

if ( event->data.keyDown.chr == pageUpChr ) // Hard-key scroll button 

DiaryTableScrolling(up, false); 
handled = true; 

} 

else if ( event->data.keyDown.chr == pageDownChr )// Hard-key scroll button 

DiaryTableScrolling{down, false); 
handled = true; 

} 

break ; 

case f rmUpdateEvent : 

DmQuickSort(pPatrolDB, (DmCorrparF *) CompareDateFunc, 0); 

TblEraseTable (pTable) ; 

DiaryLoadTableO; // Set ^ displa Di tabl 

TblDrawTable(pTable); Y 

handled = true; 
break; 

case fnaOpenEvent: // opening the form - initialize it 

FrmDrawForm{FrinGetActiveForm()); // Draw the fom 

Drawlnf oButton (DiaryHelpButton) ; 
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line 



DiaryLoadTable { ) ; 
TblDrawTable(pTable) ; 

WinDrawLine{0, 140 r 159, 140); 



handled = true; 
break; 



// Setup and display Diary table 



// Draw a form separator 



return ( handled ); 
} // end of DiaryFormE vent Handler 



* Function: UserNotesEventHandler 

* Description: Handles User selecting options. 
* 

* Parameters: event -> Pointer to an EventType structure. 
* 

* Returns: True if event was handled and should not be passed to a higher 

* level handler or false (0) if the event was not handled. 
* 

* History: 09/18/00 - Initial creation of function for pPatrol project. 

****** ************************************** 
static Boolean UserNotesEventHandler (EventPtr event) 



Boolean 
FieldPtr 



handled 
pField; 



// 



we might not succeed 



switch { event->eType ) 
{ 

case ctlSelectEvent: // Control button was pressed and released 

iff event->data.ctlEnter.controlID == NotesOKButton ) 

{ / / 1 OK 1 button pressed so apply changes and return 

CurrentRecord = NothingSelected; 



3turnToForm(DiaryForm) ; 
handled = true; 



break; 



case f rmOpenEvent : 



FrmDrawForm(FrmGetActiveForm( ) ) ; 



// Opening the form 



initialize it 

// Draw the form 



pField = GetObjectPtr {NotesNotesField) i 
PutTextlnField (pField, TheNotes) ; 
handled = true; 
break; 



return ( handled ) ; 
} // end of UserNotesEventHandler 



* Function: EditDiaryEventHandler 
* 

* Description: Handles User selecting options. 
* 

iters: event -> Pointer to an EventType structure. 



Returns : 



History: 



True if event was handled and should not be passed to a higher 
level handler or false (0) if the event was not handled. 



09/18/00 



Initial creation of function for pPatrol project. 
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**************************************************** 

static Boolean EditDiaryEventHandler (Event Ptr event) 
{ 

Boolean handled = false; // Assume we might not succeed 

ControlPtr pCntrlO = GetObjectPtr (EditFirstCheckbox) ; 

ControlPtr pCntrll = GetObjectPtr (EditLast Checkbox) ; 

FieldPtr pField; 

ListPtr pList; 

char buffer [20]; 



switch ( event->eType 



{ 



DailyFlow) ) ; 



case ctlSelectEvent: // Control button was pressed and released 

if { event- >data.ctlEnter .controlID == EditDateSelTrigger ) 

Nuday = ShowMeTheDate (true, Nuday, EditDateSelTrigger); 
handled = true; 

else iff event->data.ctlEnter. controlID == EditFirstCheckbox ) 

iff CtlGetValuefpCntrll) ) CtlSetValue (pCntrll, false); 
handled = true; 

lse iff event->data.ctlEnter. controlID == EditLastCheckbox ) 

iff CtlGetValuefpCntrlO) ) CtlSetValue fpCntrlO, false); 
handled - true; 

else iff event->data.ctlEnter .controlID == EditFlowPopTrigger ) 

pList = GetObjectPtr (EditFlowList) ; 
pField = GetObjectPtr (EditFlowField) ; 

DailyFlow = LstPopupList (pList ) ; 
iff DailyFlow != NothingSelected ) 
{ 

PutTextlnField (pField, LstGetSelectionText {pList, 

} 



DailyMood) ) j 



EditMoodPopTrigger ) 



handled = true; 

} 

else iff event ->data. ctlEnter . controlID 
{ 

pList = GetObjectPtr (EditMoodList) ; 
pField = GetObjectPtr (EditMoodField) ; 

DailyMood = LstPopupList (pList) ; 
iff DailyMood != NothingSelected ) 



iff DailyMood == OTHER ) 
{ 

ClearFieldByld (EditMoodField) ; 
SetFocusOnI tern (EditMoodField) ; 

} 

else 

PutTextlnField (pField, LstGetSelectionText (pList , 



handled = true; 

} 

else iff event->data. ctlEnter. controlID == EditSaveButton ) 
( // 'Save' button pressed so save the current data 

TheDate = Nuday; 



TheFlow 
TheMood 



DailyFlow; 
DailyMood; 
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TheLast = CtlGetValue (pCntrll) ; 






TheFirst = CtlGetValue (pCntrlO } ; 






TheNotes = FldGetTextPtr (GetObj ectPtr (EditNotesField) } ; 
iff TheNotes == NULL ) TheNotes = "" + nullChr; 


iff TheMood == OTHER ) TheOther = 
FldGetTextPtr (GetObjectPtr (EditMoodField) ) ; 

if ( TheOther == NULL ) TheOther = "" + nullChr; 


date 




SaveCurrentRecord (Current Record) ; // Save data from this 






FrrnRptn'T'nTnFnrTri ( Hi a r^/Frirm \ * 
CurrentRecord = NothingSelected; 
FrinUpdateForm(DiaryForm, SomethingChanged) ; 
handled - true; 

} 

else if ( event->data.ctlEnter.controllD == EditCancelButton ) 

{ // 'Cancel' button pressed so just return to Main form 

CurrentRecord = NothingSelected; 

FrmReturnToForm(DiaryForm) ; 

handled = true; 

} 

else if{ event->data.ctlEnter.controlID == EditDeleteButton ) 
{ // 'Delete' button pressed so do the dirty work 
// Display 'DeleteRecordAlert 1 to get confirmation before doing a 

if ( FrmAlert (DeleteRecordAlert) == DeleteRecordOK ) 
{ 

DmRemoveRecord(pPatrolDB, CurrentRecord) ,- 

} 






delete 












FrmReturnToForm(DiaryForm) ; 
CurrentRecord = NothingSelected; 
FrmUpdateForm(DiaryForm, SomethingChanged) ; 
handled = true; 

} 

break; 










case f rmOpenEvent : // Opening the form - initialize it 

FrmDrawForm{FrmGetActiveForm{) ) ; // Draw the form 






Nuday = TheDate; // update current date with record date 
ShowMeTheDate (false, Nuday, EditDateSelTrigger) ; 






CtlSetValue (GetObj ectPtr (EditFirstCheckbox) , TheFirst ) ; 
CtlSetValue (GetObjectPtr (Edit Last Checkbox) , TheLast) ; 






SysStringByIndex(DailyFlowStringList, TheFlow, buffer, sizeof (buff er) ) ; 
PutTextlnField (GetObjectPtr (EditFlowField) , buffer) ; 


sizeof (buffer) ) 


if ( TheMood == OTHER ) 

StrCopy {buffer, TheOther); 

else 

SysStringByIndex(DailyMoodStringList, TheMood, buffer, 

; 






PutTextlnField (GetObjectPtr (EditMoodField) , buffer) ; 






PutTextlnField {GetObj ectPtr (EditNotesField) , TheNotes) ; 




> 


DailyFlow = TheFlow; 
DailyMood = TheMood; 
handled = true; 
break; 




return ( 


handled ) ; 
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} / / end of EditDiaryEvent Handler 



/*****************************************^ 
* 

* Function: PenDownCheckWhere 
* 

* Description: Handles any action necessary if, and when, the User taps within 

* a specific area (x, y) in the display area. 
* 

* Parameters: penX, penY -> Position origin relative to current window. 

* marking — if true, pen down on game pieces is interpreted as 
marking 

* inBoundsP — if pen landed in game board bounds, *inBoundsP. 

* will be set to true, otherwise to false. 

* Returns: true if handled; false if not. 
* 

* History: 09/18/00 - Initial creation of function for pPatrol project. 
****************** 

static Boolean PenDownCheckWhere {in t penX, int penY, enum events eType) 



RectangleType rect; 
DateType today; 

Boolean handled = false; // Assume we might not succeed 

FieldPtr pField; 

char buf f er [longDateStrLength] ; 

if( FldGetTextLength (GetObj ectPtr (Vitallnf oMonthslField) } != 0 ) 
{ 

pField = GetObj ectPtr (Vi tallnf oDayslField) ,- 
FldGetBounds {pField, &rect) ; 

if{ RctPtlnRec tangle (penX, penY, &rect) ) 
{ 

if ( CalculatePeriodVitallnf o ( ) ) 
{ 

SndPlaySystemSound ( sndWarning) ; 

today = FirstDate; 

DateAdjust (&today, NumberDays) ; 



DisplayDate, buffer) , 



pField = GetObj ectPtr (Vitallnf oDayslField) ; 

DateToAscii (today .month, today. day, today. year + firstYear, 

StrCat (buffer + StrLen (buffer) , " . " ) ; 
PutTextlnField (pField, buffer); 



handled = true; 



} 



if( FldGetTextLength (GetObj ectPtr (Vi tallnf oMonths2Field) ) != 0 ) 

pField = GetObjectPtr (Vi tallnf oDays2Field) ; 
FldGetBounds (pField, &rect) ; 

if( RctPtInRectangle(penX, penY, &rect) ) 
{ 

iff CalculatePeriodVitallnfoO ) 
{ 

SndPlaySystemSound (sndWarning) ; 

StrlToA (buffer, NumberDays ) ; 
PutTextlnField (pField, buffer); 

} 

handled = true; 
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} 

} 



iff FldGetTextLengthfGetObjectPtr (VitalInfoMonths3 Field) ) != 0 ) 
{ 

pField = GetObjectPtr(VitalInfoDays3Field) ; 
FldGetBounds (pField, &rect) ; 

if( Rc tPtlnRect angle (penX, penY, &rect) ) 
{ 

if ( CalculatePeriodVitallnfo ( ) ) 
{ 

SndPlaySystemSound(sndWarning) ; 

StrIToA( buffer, AverageDays) ; 

StrCat (buffer + StrLen (buffer) , " days."); 

PutTextlnField (pField, buffer) ; 

} 

handled - true; 



return ( handled ); 
} // end of PenDownCheckWhere 



/******************************************************************************* 
* 

* Function: VitallnfoE vent Handler 
* 

* Description: Handles User selecting options. 

* Parameters: event -> Pointer to an EventType structure. 
* 

* Returns: True if event was handled and should not be passed to a higher 

* level handler or false (0) if the event was not handled. 
* 

* History: 09/10/00 - Initial creation of function for pPatrol project. 
* 

************************************************* 

static Boolean Vital In foEventHandler (Event Ptr event) 
{ 

DateType today; 

Boolean handled = false; // Assume we might not succeed 

FieldPtr pField; 

ListPtr pList; 

Word selectedMonths ; 

char buf fer [longDateStr Length] ; 



switch ( event->eType ) 

{ 

case ctlSelectEvent: // Control button was pressed and released 

if ( event->data.ctlEnter.controlID == VitallnfoFinishedButton ) 
{ / / ' OK ' button pressed so apply changes and return 

FrmReturnToForm{MainForm) ; 

handled = true; 

} 

else iff event->data.ctlEnter.controlID == Vitallnf oShowButton ) 
{ 

iff FldGetTextLengthfGetObjectPtr (Vitallnf oMonthslField) ) == 0 | | 
FldGetTextLengthfGetObjectPtr (Vitallnf oMonths2Field) ) == 0 | | 

FldGetTextLength(GetObjectPtr (Vitallnf oMonths3Field) ) == 0 ) 
{ 

FrmAlert (NoMonths Select edAlert) ; 
handled = true; 
break ; 

} 
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DisplayDate, buffer) \ 



if ( CalculatePeriodVitallnf o ( ) ) 
{ 

today = FirstDate; 

DateAdjust (fctoday, NumberDays); 

pField = GetObjectPtr(VitallnfoDayslField) ; 

Da teToAscii (today. month, today. day, today. year + firstYear, 



mistake 



selectedMonths) ] 
buffer) j 
buffer) 
buffer) 
buffer) 



selectedMonths) ) ; 
selectedMonths) ) ; 



StrCat (buffer + StrLen (buf f er) , 
PutTextlnField (pField, buffer); 



') ; 



pField = GetObjectPtr (Vitallnf oDays2Field) ; 
StrlToA (buffer, NumberDays); 
PutTextlnField {pField, buffer) ; 

pField = GetObjectPtr (VitalInfoDays3Field) ; 
StrlToA {buffer, AverageDays) ; 
StrCat (buf fer + StrLen (buffer) , *' days."); 
PutTextlnField (pField, buffer) ; 

} 

else 

{ // Emulate a User tapping the 'Clear' key after having made a 
CtlHitControl (GetObjectPtr {Vitallnf oClearButton) ) ; 

} 

handled = true; 



} 

else iff event->data.ctlEnter.controlID 
{ 

pList = GetObjectPtr (Vitallnf oMonthsOList) ; 



Vi tal Inf oMonths 0 PopTr i gger 



selectedMonths = LstPopupList {pList} ; 
if { selectedMonths != NothingSelected ) 
{ 

StrCopy {buffer, LstGetSelectionText (pList, 
PutTextlnField (GetObjectPtr (Vitallnf oMonthsOField) , 
PutTextlnField {GetObjectPtr (Vitallnf oMonthslField) , 
PutTextlnField (GetObjectPtr (Vitallnf oMonths2Field) , 
PutTextlnField (GetObjectPtr {Vitallnf oMonths3Field) , 
SelectedMonths = StrAToI (buffer) ; 

} 

handled = true; 

} 

else if{ event->data.ctlEnter.controlID == Vitallnf oMonthsl PopTr igger ) 
{ 

pList = GetObjectPtr (Vitallnf oMonthslList ) ; 
pField = GetObjectPtr (Vitallnf oMonthslField) ; 

selectedMonths = LstPopupList (pList) ; 
if ( selectedMonths 1= NothingSelected ) 
{ 

PutTextlnField (pField, LstGetSelectionText {pList , 
SelectedMonths = StrAToI (LstGetSelectionText (pList, 



handled = true; 

} 

else if { event->data.ctlEnter.controlID == Vitallnf oMonths 2 PopTr igger ) 



pList = GetObjectPtr{VitalInfoMonths2List) ; 
pField = GetObj ectPtr (Vitallnf oMonths2Field) ; 
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selectedMonths) ) ; 
selectedMonths) ) ; 



selectedMonths = LstPopupList (pList) ; 
iff selectedMonths != NothingSelected ) 
{ 

PutTextlnFieldfpField, LstGetSelectionText {pList, 
SelectedMonths = StrAToI (LstGetSelectionText (pList, 



handled = true; 

} 

else if ( event->data.ctlEnter.controlID == Vital InfoMonths3PopTrigger ) 

pList = GetObj ectPtr (Vitallnf oMonths3List) ; 
pField = GetObjectPtr (Vitallnf oMon ths3Field) ; 

selectedMonths = LstPopupList (pList) ; 
if ( selectedMonths != NothingSelected ) 



{ 



selectedMonths) ) ; 
selectedMonths) ) ; 



PutTextlnFieldfpField, LstGetSelectionText fpList, 
SelectedMonths = StrAToI (LstGetSelectionText (pList , 



handled = true; 

} 

else iff event->data.ctlEnter. control ID == Vital InfoClearButton 
{ 

ClearFieldByld(VitallnfoDayslField) 
ClearFieldById(VitalInfoDays2Field) 
ClearFieldByld { Vitallnf oDays3Field) . 
ClearFieldByld(VitallnfoMonthsOField) 
ClearFieldByld ( Vitallnf oMonthslField) 
ClearFieldByld (VitalInfoMonths2Field) 
ClearFieldByld (Vitallnf oMonths3Field) 

handled = true; 

} 

else iff event->data.ctlEnter.controlID == VitallnfoHelpButton ) 



} 

break; 



FrmHe lp f Vital In f oFormHelpSt ring) ; 
handled = true; 



} 



case penDownEvent : 

handled = PenDownCheckWhere (event->screenX, event ->screenY, event - >eType ) ; 
break; 

case frmOpenEvent: // Opening the form - initialize it 

FrmDrawFormfFnriGetActiveFormf}); // Draw the form 

Drawlnf oButton (VitallnfoHelpButton) ; 
handled = true; 
br eak ; 



return ( handled ); 
} // end of VitallnfoE vent Handler 



#pragma mark 



********************* 



* Function: ProtectOurAppli cation 
* 

* Description: Sets the bit in the database header that tells the launcher this 
application should not be beamable. 

Note that this function assumes we're the active UI app. 
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* (See note in the code for what to do if you're not.) 

* Once this routine has been run, the launcher will not allow this 

* app to be beamed. You can call this routine as many times as you 

* want; calling it when the app is launched is convenient and will 

* not slow down the rest of the Operating System by wasting time 

* during the other launch codes. 
* 

* Setting this bit at compile- time would be best, but none of the 

* current tools allow this yet. When they do, you can get rid of 

* this routine. 
* 

***************************************************** 

static void ProtectOurApplication (void) 
{ 

// This is a temporary definition, just in case them old headers are being used 
#ifndef dmHdrAttrCopyPrevention 
#define dmHdrAttrCopyPrevention 0x0040 
#endif 



UInt cardNo; 

Local ID dbID; 

UInt theAttributes ; 



// Find our database - only works if you're the running ui application. 
// If you need to do this when you're not the running app, then call 
// DmFindD at abase ( ) with your app's database name instead. 
SysCurAppDat abase ( &cardNo , &dbID) ; 

if{ dbID ) 
{ 

// Get the current attributes, turn on protection, and save them. 
DmDatabaseInfo(cardNo, dbID, 0, ^theAttributes, 0,0,0,0,0,0,0,0,0); 
theAttributes = theAttributes | dmHdrAttrCopyPrevention; 
DmSetDatabaseInfo{cardNo, dbID, 0, & theAttributes, 0,0,0,0,0,0,0,0,0); 

} 

} // end of ProtectOurApplication 



/******************************************************************************* 
* 

* Function: CompatibleOSCheck 
* 

* Description: Check that the ROM version meets your minimum requirement. Warn 

* if the app was switched to by the system. This function requires 

* a ' Romlncompatible Alert 1 form resource. 

* Parameters: requiredVersion -> Minimum rom version required. 

* (see sysFtrNumROMVersion in SystemMgr .h for format) 

* launchFlags -> Flags indicating how application was launched 

* A warning is displayed only if these flags indicate that the app 

* is launched normally. 
* 

* Returns: Zero if OS rom is compatible else an error code. 

* History: 08/19/98 - Added Operating System ROM compatibility checking. 

/ 



****************************************************************************** 



static Err CompatibleOSCheck (DWord requiredVersion, Word launchFlags) 
DWord r omVer s i on ; 



// See if running on minimum required version of the ROM or later. The system 
// records the version number in a feature. A 'feature' is a specific piece of 
// information which can be looked up by a creator and feature number. 
FtrGet (sysFtrCreator, sysFtrNumROMVersion, &romVersion) ; 
if ( romVersion < requiredVersion ) 
{ 

// If the User launched the app from the launcher explain why the app should 
// not be allowed to run. If the app was contacted for something else, like 
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// i ^? aS fS ke ^ t0 f:Ln £ a strin 9 b Y th « system find function, then let's not 
// bother the User with any warning dialog. These flags tell us how the app 
// was launched to decide if a warning should be displayed. 
if( (launchFlags & (sysAppLaunchFlagNewGlobals | sysAppLaunchFlagUIApp) ) == 
^ (sysAppLaunchFlagNewGlobals | sysAppLaunchFlagUIApp) ) 

FrmAlert (RomlncompatibleAlert) ; 

// Pilot 1.0 will continuously relaunch this app unless we switch to 
// another safe one. The sysFileCDe fault App is considered "safe", 
if ( romVersion < 0x02000000 ) 
{ 

AppLaunchWi thCommand ( sysFi 1 eCDe f aul tApp , 
sysAppLaunchCmdNormal Launch, NULL) ; 

} 

} 

return ( sysErrRomlncompatible ); 

} 

return ( 0 ) ,- 
} // end of CompatibleOSCheck 

/************************^ 

* Function: AppHandleHotSync 

* Description: Clear the backup bit after a User has done a HotSync. This will 

make sure the app is backed up each and every time a User does a 

* HotSync operation. 
* 

* Parameters: None 
* 

* Returns: Nothing 
* 

* History: 07/28/98 - First attempt at my generic application framework. 

********************************^ 
static void AppHandleHotSync (void) 
{ 

DmSearchStateType dbState; 
LocallD dbID; 
UInt attributes, cardNo; 

// Find application database if one exists 
&dbID) = ^ f( 0 ^ etNextDatabaseB ^ eCreator ( true ' estate, AppDbType, AppCreator, false, fccardNo, 
{ 

DmDatabaseInfo(cardNo, dbID, NULL, ^attributes, 
NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL ) ; 

attributes &= I dmHdrAt trBackup ; 

DmSetDatabaseInfo(cardNo, dbID, NULL, &attributes, 
NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL ) ; 
} 

} // end of AppHandleHotSync 

/******************************^ 

* Function: StartApplication 

Description: Initializes anything the program needs at startup, then switches 
to the application's main form. Opens database/load first form. 

* Parameters: None 

Returns: Returns error code if there's an error or false (0) if no error. 
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History: 07/28/98 - First attempt at my generic application framework. 



static Boolean StartApplicat ion (void) 
{ 

SystemPref erencesType sysPrefs; 
Word prefsSize; 



// User's Palm preferences 



// Get current date formats from system preferences, then get today's date and 
// use this date for all records during this session unless modified by User. 
PrefGetPreferencest&sysPrefs) ; 
DisplayDate = sysPref s . dateFormat ; 
DisplayLongDate = sysPref s . longDateFormat; 
StartingDayOfWeek = sysPref s .weeks tar tDay; 

DateSecondsToDate (TimGetSeconds ( } , &Nuday) ; 
Today = Nuday; 



// This should be self-explanatory 



CreateApplicationDatabase ( ) ; 

TopVisibleRecord = 0; 
CurrentRecord = NothingSelected,- 
SelectedMonths = NothingSelected; 

prefsSize = sizeof (Pref s) ; 

// Check if preferences have already been set and saved 

if{ Pref GetAppPref erences (AppCreator, AppPrefVer, &Prefs, &prefsSize, true) 
== noPreferenceFound ) 

{ 

Prefs.nextPeriod = false; 
Prefs.lastMissing = false ,- 
Prefs. installedDate = Nuday; 



FrmGotoForm(MainForm) ; 



l( false ); 



} // end of StartApplication 



* Function: 



StopApplication 



* Description: If needed, save current application state and close all forms as 

* well as any open databases. 



First attempt at my generic application framework. 



sters: None 
Returns : Nothing 
History: 07/28/98 



****************************************************** 
static void StopApplication (void) 

// Close all open forms to allow their frmCloseEvent handlers to execute. The 
// appStopEvent doesn't send f rmCloseEvents, but FrmCloseAllForms does. 
FrmCloseAllFormsO ; 

// Write saved pref erences/ saved- state information. This is the data backed 
//up during a Hot Sync session. 

Pref SetAppPref erences {AppCreator, AppPrefVer, AppVersion, &Prefs, sizeof (Pref s) , true) 
} // end of StopApplication 



* Function: 



Event Loop 
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* Description: Gets next event and hands it off to each event handler in line 

* till one of them does something with it. It will stay in this 

* loop until a stop event occurs. 
* 

* Parameters: None 

* Returns: Nothing 
* 

* History: 07/28/98 - First attempt at my generic application framework. 

* 11/02/98 - Incorporated the ApplicationEventHandler code. 
* 

**********************************^ 
static void Event Loop {void) 
{ 

EventType event ; 

FormPtr pForm; 
Word error, formld; 



// This is where ye old application spends most of its time just getting them 

// there events an' dispatching 'em. 

do 

{ 

Evt Get Even t (&event, evtWaitForever) ; // Get next available event 

if{ SysHandleEvent (&event) ) continue; 

if( MenuHandleEvent { 0 , fcevent, terror) ) continue; 

iff event. eType == frmLoadEvent ) 

{ // Load form resource specified in event, then activate form 

formld = event. data. frmLo ad. formID; // Get form ID number 

pForm = FrmlnitForm ( formld) ; // Load it, getting form's pointer 

FrmSetActiveForm(pForm) ; // Now OS will send events to this form 

// Set event handler for the form. The handler of the currently active 
// form is called by FrmHandleEvent each time it receives an event, 
switch ( formld ) 
{ 

case MainForm: 

FrmSetEventHandler (pForm, MainFormEventHandler) ; 
break; 



case PreferencesForm: 

FrmSetEventHandler (pForm, Pref erencesEvent Handler ) ; 
break; 

case About AppForm: 

FrmSetEventHandler (pForm, AboutAppEvent Handler) ; 
break ; 

case DisclaimerForm: 

FrmSetEventHandler (pForm, Disci aimerEventHandler) ; 
break; 

case DiaryForm: 

FrmSetEventHandler (pForm, DiaryFormEventHandler) ; 
break; 

case NotesForm: 

FrmSetEventHandler (pForm, Us erNotesEvent Handler) ; 
break; 

case EditForm: 

FrmSetEventHandler (pForm, EditDiaryEvent Handler) ,- 
break; 

case VitallnfoForm: 

FrmSetEventHandler (pForm, Vital Inf oEventHandler) ; 
break; 
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case CalendarForm: 

FrmSetEventHandler (pForm, CalendarEventHandler) ; 
break; 



FrmDi spat chEvent (&e vent) ; // Events for current form 

} 

while { event. eType != appStopEvent ); 

// User chose another application, so return to PilotMain for tidyup and exit. 
} // end of EventLoop 



/******************************************************************************* 

* Function: PilotMain 
* 

* Description: Called by the Palm Operating System to start the application. 
* 

* Parameters: cmd -> Launch code; how/why application was started. 

* cmdPBP -> Parameter block for the command. 

* launchFlags -> Additional flags. 
* 

* Returns: 0 for success or an applicable error code should an error occur. 

* History: 07/28/98 - First attempt at my generic application framework. 

* 08/19/98 - Added Operating System version compatibility check. 
* 

***** ********************************************** 
DWord PilotMain (Word cmd, Ptr cmdPBP, Word launchFlags) 
{ 

Word error ; 



// This application makes use of PalmOS 
//an earlier version of PalmOS. Detect 
error = CompatibleOSCheck(MinOSVersion, 
if( error ) return ( error ); 

if ( cmd -= sysAppLaunchCmdNormal Launch ) 
{ 

ProtectOurApplication { ) ; 

error = StartApplicationO ; 
iff error ) return ( error ); 

EventLoop ( ) ; 
StopApplication( ) ; 

} 

return ( error ) ; 
} // end of PilotMain 



2.0 features. It will crash if run on 
, and warn if this happens/ then exit. 
launchFlags) ; 



// Check for normal launch 
// Don't allow us to be beamed 
// Setup and initialization 



//Do the event loop boogie 
//Do any clean-up before exiting 
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